LINE #  P/D LC  LVL  < STANFORD PASCAL_P COMPILER, VERSION OF AUG.-78 >

        1      44  1) (*PROGRAM HEADER PAGE*) 
        2      44  1)  
        3      44  1) (*PAS10 OPTIONS*) (*$D+,R32,S1300*)                     (*X10S1*) 
        4      44  1)  
        5      44  1) (*                                                           DEFAULT 
        6      44  1)  
        7      44  1) D+      DEBUG AND POSTMORTEM DUMP                               - 
        8      44  1) E+      EXTERNAL CALLS TO LEVEL 1 PROCEDURES ALLOWED            - 
        9      44  1) FN      FILE OPTION                                             1 
       10      44  1) I+      FORTRAN I/O IN EXTERNAL FORTRAN SUBROUTINES             - 
       11      44  1) L+      OBJECT LISTING                                          - 
       12      44  1) RN      SIZE OF LOW-SEGMENT                             (SEE PAS10 MANUAL) 
       13      44  1) SN      MAX INSTRUCTIONS PER STATEMENT                         1000 
       14      44  1) T+      RUNTIME CHECK                                           + 
       15      44  1) U+      72 COLUMN FORMAT                                        - 
       16      44  1) XN      HIGHEST REGISTER FOR PARAMETERS                         6 
       17      44  1) *) 
       18      44  1)  
       19      44  1) (*SLAC PCPASC OPTIONS*) (* B+,D+,M-*) 
       20      44  1)  
       21      44  1) (*                                                           DEFAULT 
       22      44  1)  
       23      44  1) A+      GENERATE 370 OBJECT MODULE                              - 
       24      44  1) A-      GENERATE 370 ASSEMBLY MODULE 
       25      44  1) B+      BOUNDS CHECKING, BUT ALLOW 'BIG' CHARACTERS             - 
       26      44  1) C+      EMIT PCODE                                              + 
       27      44  1) D+      RUNTIME CHECKING OF POINTER, INDEX, SUBRANGE VALUES     - 
       28      44  1) E+      FILE IS IN EBCDIC CHARACTER SET                         - 
       29      44  1) F+      SAVE FPR'S ON PROCEDURE/FUNCTION ENTRY                  + 
       30      44  1) K+      ENABLE STATEMENT EXECUTION COUNTING                     - 
       31      44  1) L+      LIST SOURCE PROGRAM                                     + 
       32      44  1) M+      72 COLUMN FORMAT                                        + 
       33      44  1) P+      DOUBLE-WORD BOUNDARY ALIGNMENT                          - 
       34      44  1) S+      SAVE GPR'S ON PROCEDURE/FUNCTION ENTRY                  + 
       35      44  1) T+      PRINT SYMBOL TABLES (FOR POST-PROCESSOR)                - 
       36      44  1) U+      GET STATISTICS?? 2ND PARAMETER TO PCODE BGN INSTR.      - 
       37      44  1) V+      ?? 3RD PCODE BGN INSTRUCTION PARAMETER                  - 
       38      44  1) X+      USE ACTUAL PROCEDURE NAMES FOR EXTERNAL REFERENCES      - 
       39      44  1) X-      GENERATE UNIQUE 8-CHAR NAMES FOR EXTERNAL REFERENCES 
       40      44  1) *) 
       41      44  1)  
       42      44  1) (*S1 PCPASC OPTION DIFFERENCES*) (* A+,B+,D+,L-,M120*)  (*X10S1*) 
       43      44  1)  
       44      44  1)  
       45      44  1)  
       46      44  1) (*                                                           DEFAULT 
       47      44  1)  
       48      44  1) A+      GENERATE S1 ASSEMBLY MODULE                             - 
       49      44  1) A-      GENERATE S1 OBJECT MODULE 
       50      44  1) *) 
       51      44  1)  
       52      44  1) (* SLAC/PDP-10 TRANSPORT DEPENDENCIES FLAGGED WITH "XSL10" *) 
       53      44  1) (* PDP-10/S-1 TRANSPORT DEPENDENCIES FLAGGED WITH "X10S1" *) 
       54      44  1) PROGRAM DMD (INPUT,OUTPUT); 
       55      44  1)  
       56      44  1) CONST  
       57      44  1) MAX = 2000; 
       58      44  1) INIT = 1; 
       59      44  1) DI = 13; 
       60      44  1) RE = 7; 
       61      44  1)  
       62      44  1) VAR 
       63      44  1) X,Y,Z : INTEGER; 
       64      56  1)  
       65      56  1) BEGIN 
       66       0  1)  
       67       0  1) FOR Y := INIT TO MAX DO 
       68      17  1)     BEGIN 
       69      17  1)     X := Y MOD DI; 
       70      21  1)     Z := Y DIV DI; 
       71      25  1)     IF X = RE THEN 
       72      29  1)         WRITELN (OUTPUT,Z,Y); 
       73      39  1)     END; 
       74      47  1) END. 


          ****   NO SYNTAX ERROR(S) DETECTED.

          ****    74 LINE(S) READ,    0 PROCEDURE(S) COMPILED,

          ****    49 P_INSTRUCTIONS GENERATED,   0.16 SECONDS IN COMPILATION.